COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE FUN
C00007 ENDMK
C⊗;
	TITLE FUN
OA←14
N←15
INT:	HRRZI N,IOA
	HRRM N,XP
PRNT:	HRRZ 7,N
STAR:	HRRZI OA,IOA
	INCHWL 7
	CAIN 7,15
	JRST PRNT
	HRRZ 6,N
	HRRZM 7,@6
	AOJ 6,
	INCHRS @6
	SKIPA
	JRST .-3
	SUBI 6,2
	HRRZ 10,6
	SETZ 7,
	HRRZ 5,N
CKEQ:	MOVE 11,@5
	HRRZ 4,OA
	CAML 4,N
	JRST .+4
	CAMN 11,@4
	JRST .+4
	AOJA 4,.-4
	MOVEM 11,@N
	AOJ N,
	SETZ 13,
	SKIPA
	AOJ 13,
	AOJ 5,
	CAMN 11,@5
	JRST .-3
	HRL 4,4
	JUMPE 13,.+4
	HRR 4,13
	IORI 4,400000
	JRST .+7
	AOBJN 7,
	CAME 4,7
	JRST .+4
	SOJ 10,
	HRRM 4,@10
	JRST .+3
	MOVE 7,4
	MOVEM 4,@10
	AOJ 10,
	CAMGE 5,6
	JRST CKEQ
	HRRZ 5,N
	SUB 10,6
	ADD 10,N
	HRL 5,6
	BLT 5,@10
	HRRZM N,CEX#
	SETZM FLG#
FDEQ:	MOVE 4,@OA
	HRRZ 5,N
LKMO:	CAMN 4,@5
	JRST EQU
ADIN:	AOJ 5,
	CAMGE 5,10
	JRST LKMO
	AOJ OA,
	CAMGE OA,N
	JRST FDEQ
	HRR OA,CEX
	AOJ N,
	CAMGE N,10
	JRST FDEQ
	JRST BACK
EQU:	AOJ 5,
	SETZ 13,	;??↓
	HRR 11,OA
	HRL 11,OA
	CAML 5,10
	JRST TOAH
	AOJ OA,
	CAML OA,N
	JRST CKNX
	MOVE 6,@OA
	CAME 6,@5
	JRST CKNX
	AOJ 13,
	HRR 11,OA
	AOJ 5,
CKNX:	SOJ OA,
	CAML 5,10	;???↓
	JRST CKLA
	HLRZ 6,@5
	TRZN 6,400000
	JRST CKLA
	SOJ 6,
	;HLL 6,11	;?←
	CAME 6,11	;????????←
	JRST CKLA
	HRR 11,@5
	AOJ 13,
	CAIG 13,1
	JRST TOAH
	SKIPA
CKLA:	CAIL 13,1
	SOJ 5,
TOAH:	SUBI 5,2
	MOVE 6,@5
	JUMPGE 6,MVM
	HRRZ 6,6
	AOJ 6,
	CAME 6,OA
	JRST MVM
	AOJ 13,
	HLL 11,@5
	JRST .+3	;??↑
MVM:	AOJ 5,
	JUMPE 13,ADIN
	TLO 11,400000
	MOVEM 11,@5
	AOJ 5,
	HRR 6,5
	ADD 6,13
	HRL 6,6
	HRR 6,5
	SUB 10,13
	BLT 6,@10
	JRST LKMO
BACK:	MOVE 13,XP
	MOVEM 13,@10
	SOJ 13,
	HRRZ 13,13
	HRL 6,10
	SOJ 10,
	CAME 10,CEX
	JRST .+3
	HRRZ 13,@10
	ADDI 13,3
	MOVE 11,@13
	HRL 7,CEX
	HRR 7,10
	ADDI 10,2
	MOVEM 7,@10
	AOJ 10,
	TLO 11,400000
	MOVEM 11,@10
	HRR 6,10
	TLO 6,400000
	MOVEM 6,XP
	AOJ 10,
	HRRZ N,10
	HRRZ OA,N
	HRRZ 13,OA
	ADDI 13,100
	HLRZ 4,11
	TRZ 4,400000
	JUMPE 4,STAR
BUNT:	HRRZ 5,11
REEM:	HLRZ 7,@4
	TRZE 7,400000
	JRST MINY
	HRRZ 10,@4
	TRZE 10,400000
	JRST MOON
	MOVE 6,@7
	MOVEM 6,@OA
	AOJ OA,
	AOJ 7,
	CAMG 7,10
	JRST .-5
	JRST ADO
MINY:	PUSH 13,11
	MOVE 11,@4
	HRR 4,7
	JRST BUNT
MOON:	MOVE 6,@7
	MOVEM 6,@OA
	AOJ OA,
	SOJGE 10,.-2
ADO:	AOJ 4,
	HLR 7,11
	AOJ 7,
	HRL 11,7
	CAMG 4,5
	JRST REEM
	HLR 4,13
	JUMPE 4,TYOUT
	POP 13,11
	HLR 4,11
	HRR 5,11
	TRZ 4,400000
	JRST ADO
TYOUT:	HRRI 4,15
	HRRZM 4,@OA
	AOJ OA,
	HRRI 4,12
	HRRZM 4,@OA
	HRR 4,N
	OUTCHR @4
	AOJ 4,
	CAMG 4,OA
	JRST .-3
	JRST STAR
XP:	0
IOA:	BLOCK 1200
	END INT